0 GOTO 1::"26-AUG-85/0000": REM DON'T^ADD^ANY^LINE^NUMBERED^SMALLER^THAN^7.
1 P$ = "RUN.COUNTER": REM YOUR^PROGRAM^NAME^HERE
2 L = PEEK(103) + PEEK(104) *256 +9: FOR I = L TO L +8:DAY$ = DAY$ + CHR$( PEEK(I)): NEXT :NMBR = 1000 *( PEEK(L +10) -48) +100 *( PEEK(L +11) -48) +10 *( PEEK(L +12) -48) + PEEK(L +13) -48:NMBR = NMBR +1
3 HOME : VTAB 18: PRINT P$: FOR I = 1 TO LEN(P$): PRINT "-";: NEXT : PRINT
4 PRINT "RUN NUMBER: ";NMBR: POKE L +13,48 +NM - INT(NM/10) *10: POKE L +12,48 + INT((NM - INT(NM/100) *100)/10): POKE L +11,48 + INT((NM - INT(NM/1000) *1000)/100): POKE L +10,48 + INT(NM/1000)
5 PRINT "LAST RUN ON: ";DAY$;".": PRINT : PRINT "TODAY'S DATE:__-___-__";: HTAB 13: INPUT ":";NUDAY$: ON LEN(NUDAY$) < >9 GOTO 3: FOR I = 1 TO 9:A$(I) = MID$ (NUDAY$,I,1): NEXT :DA = VAL(A$(1)) *10 + VAL(A$(2)): IF (DA <1 OR DA >31) OR A$(3) < >"-" OR A$(7) < >"-" THEN 3
6 IF NU$ < >"" THEN FOR I = 1 TO 8: POKE L +I -1, ASC(A$(I)): NEXT
8 REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>RUN.COUNTER WAS ADAPTED FROM<CTRL-M>BERT KERSEY'S UTILITY CITY DISK